﻿Imports System

Namespace System.Workflow.Activities
    <AttributeUsage((AttributeTargets.Delegate Or (AttributeTargets.Event Or AttributeTargets.Method)), AllowMultiple:=True)> _
    Public NotInheritable Class CorrelationAliasAttribute
        Inherits Attribute
        ' Methods
        Public Sub New(ByVal name As String, ByVal path As String)
            Me.path = path
            Me.name = name
        End Sub


        ' Properties
        Public ReadOnly Property Name As String
            Get
                Return Me.name
            End Get
        End Property

        Public ReadOnly Property Path As String
            Get
                Return Me.path
            End Get
        End Property


        ' Fields
        Private name As String
        Private path As String
    End Class
End Namespace

